<html>
<head>
<title>E:\QProjects\Lisp\toygen\inter\string-utility.lisp.html</title>
<meta name="Generator" content="Vim/7.0">
<meta http-equiv="content-type" content="text/html; charset=windows-1251">
</head>
<body bgcolor="#ffffff" text="#000000">
<pre>
<font color="#804040"> 1 </font><span class="Comment">;</span>
<font color="#804040"> 2 </font><span class="Comment">; appends string to the specified variable</span>
<font color="#804040"> 3 </font><span class="Comment">;</span>
<font color="#804040"> 4 </font><span class="Special">(</span><span class="Statement">defmacro</span><span class="lispList"> </span><span class="lispSymbol">append-string</span><span class="lispList"> </span><span class="Special">(</span><span class="lispSymbol">result</span><span class="lispList"> </span><span class="lispSymbol">&amp;rest</span><span class="lispList"> </span><span class="lispSymbol">args</span><span class="Special">)</span>
<font color="#804040"> 5 </font><span class="lispLeadWhite">  </span><span class="PreProc">`(</span><span class="Statement">setf</span><span class="lispBQList"> ,</span><span class="lispSymbol">result</span><span class="lispBQList"> </span><span class="Special">(</span><span class="Statement">concatenate</span><span class="lispList"> </span><span class="Special">'</span><span class="Identifier">string</span><span class="lispList"> ,</span><span class="lispSymbol">result</span><span class="lispList"> ,</span><span class="lispSymbol">@args</span><span class="Special">)</span><span class="PreProc">)</span>
<font color="#804040"> 6 </font><span class="lispLeadWhite">  </span><span class="Special">)</span>
<font color="#804040"> 7 </font>
<font color="#804040"> 8 </font><span class="Comment">;</span>
<font color="#804040"> 9 </font><span class="Comment">; shorthand to the string concatenation function</span>
<font color="#804040">10 </font><span class="Comment">;</span>
<font color="#804040">11 </font><span class="Special">(</span><span class="Statement">defmacro</span><span class="lispList"> </span><span class="lispSymbol">conc-string</span><span class="lispList"> </span><span class="Special">(</span><span class="lispSymbol">arg1</span><span class="lispList"> </span><span class="lispSymbol">&amp;rest</span><span class="lispList"> </span><span class="lispSymbol">args</span><span class="Special">)</span>
<font color="#804040">12 </font><span class="lispLeadWhite">  </span><span class="PreProc">`(</span><span class="Statement">concatenate</span><span class="lispBQList"> </span><span class="Special">'</span><span class="Identifier">string</span><span class="lispBQList"> ,</span><span class="lispSymbol">arg1</span><span class="lispBQList"> ,</span><span class="lispSymbol">@args</span><span class="PreProc">)</span><span class="Special">)</span>
<font color="#804040">13 </font>
<font color="#804040">14 </font>
<font color="#804040">15 </font><span class="Comment">; single indentation unit</span>
<font color="#804040">16 </font><span class="Special">(</span><span class="Statement">setf</span><span class="lispList"> </span><span class="Type">*indentation-unit*</span><span class="lispList"> </span><span class="Constant">&quot;    &quot;</span><span class="Special">)</span>
<font color="#804040">17 </font>
<font color="#804040">18 </font><span class="Comment">;</span>
<font color="#804040">19 </font><span class="Comment">; newline string</span>
<font color="#804040">20 </font><span class="Comment">;</span>
<font color="#804040">21 </font><span class="Special">(</span><span class="Statement">setf</span><span class="lispList"> </span><span class="Type">*new-line*</span><span class="lispList"> </span><span class="Special">(</span><span class="Statement">make-string</span><span class="lispList"> </span><span class="Constant">1</span><span class="lispList"> </span><span class="Type">:initial-element</span><span class="lispList"> </span><span class="Type">#\N</span><span class="lispSymbol">ewline</span><span class="Special">))</span>
</pre>
</body>
</html>
